
rm(list=ls())
source("liteep.R"); source("MyFunc.R")
source("1.2 CHR.R")

load("example-data.RData")

CHR(data)
